home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / wcl-21.lha / wcl-2.1 / src / build / compute-root.lisp < prev    next >
Lisp/Scheme  |  1992-09-10  |  351b  |  13 lines
  1. ;;; (C) Copyright 1990-1992 by Wade L. Hennessey. All rights reserved.
  2.  
  3. ;;; Assumes we're in the build dir!
  4. (defun compute-root-directory ()
  5.   (cd "../../")
  6.   (let ((r (namestring (pwd))))
  7.     (cd "src/build")
  8.     (if (char= (schar r (1- (length r))) #\/)
  9.     r
  10.     (format nil "~A/" r))))
  11.            
  12. (defparameter *root-directory*  (compute-root-directory))
  13.